Map of Bude

adding required packages

library(ggmap)

## Loading required package: ggplot2

library(tidyverse)

## ── Attaching packages ─────────────────────────────────────────────── tidyverse 1.2.1 ──

## ✔ tibble  1.4.2     ✔ purrr   0.2.4
## ✔ tidyr   0.8.0     ✔ dplyr   0.7.4
## ✔ readr   1.1.1     ✔ stringr 1.2.0
## ✔ tibble  1.4.2     ✔ forcats 0.2.0

## ── Conflicts ────────────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()

library(maps)

## 
## Attaching package: 'maps'

## The following object is masked from 'package:purrr':
## 
##     map

library(mapproj)

Different Types of Maps

Road map of Bude

map.1 <- get_map(location = c(-4.5413, 50.82435), zoom = 14, maptype = "roadmap")

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=50.82435,-4.5413&zoom=14&size=640x640&scale=2&maptype=roadmap&language=en-EN&sensor=false

ggmap(map.1)

Water color map of Bude

map.2 <- get_map(location = c(-4.5413, 50.82435), zoom = 14, maptype = "watercolor")

## maptype = "watercolor" is only available with source = "stamen".

## resetting to source = "stamen"...

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=50.82435,-4.5413&zoom=14&size=640x640&scale=2&maptype=terrain&sensor=false

## Map from URL : http://tile.stamen.com/watercolor/14/7984/5496.jpg

## Map from URL : http://tile.stamen.com/watercolor/14/7985/5496.jpg

## Map from URL : http://tile.stamen.com/watercolor/14/7986/5496.jpg

## Map from URL : http://tile.stamen.com/watercolor/14/7984/5497.jpg

## Map from URL : http://tile.stamen.com/watercolor/14/7985/5497.jpg

## Map from URL : http://tile.stamen.com/watercolor/14/7986/5497.jpg

## Map from URL : http://tile.stamen.com/watercolor/14/7984/5498.jpg

## Map from URL : http://tile.stamen.com/watercolor/14/7985/5498.jpg

## Map from URL : http://tile.stamen.com/watercolor/14/7986/5498.jpg

ggmap(map.2)

Locations

Map of all locations

Key: red- Bude North Cornwall Cricket Club blue- Crooklets Beach green- Summerleaze Beach yellow- Crooklets Inn (pub)

regular map

ggmap(map.1) +
  geom_point(
    aes(x = -4.552577 , y = 50.83386),
    color = "red", size = 3) +
  geom_point(
    aes(x = -4.553923 , y = 50.83613),
    color = "blue", size = 3) +
  geom_point(
    aes(x = -4.551326 , y = 50.83099),
    color = "green", size = 3)+
  geom_point(
    aes(x = -4.551132, y = 50.83597),
    color = "yellow", size = 3)

water color map

ggmap(map.2) +
  geom_point(
    aes(x = -4.552577 , y = 50.83386),
    color = "red", size = 3) +
  geom_point(
    aes(x = -4.553923 , y = 50.83613),
    color = "blue", size = 3) +
  geom_point(
    aes(x = -4.551326 , y = 50.83099),
    color = "green", size = 3)+
  geom_point(
    aes(x = -4.551132, y = 50.83597),
    color = "yellow", size = 3)

Route from the cricket club to the pub

regular map

from <- "Crooklets Inn"
to <- "Bude North Cornwall Cricket Club"
route_df <- route(from, to, structure = "route")

## Information from URL : http://maps.googleapis.com/maps/api/directions/json?origin=Crooklets+Inn&destination=Bude+North+Cornwall+Cricket+Club&mode=driving&units=metric&alternatives=false&sensor=false

ggmap(map.1) +  
  geom_path(
    aes(x = lon, y = lat), colour = "red", size = 1.5,
    data = route_df, lineend = "round"
  )

water color map

from <- "Crooklet's Inn"
to <- "Bude North Cornwall Cricket Club"
route_df <- route(from, to, structure = "route")

## Information from URL : http://maps.googleapis.com/maps/api/directions/json?origin=Crooklet's+Inn&destination=Bude+North+Cornwall+Cricket+Club&mode=driving&units=metric&alternatives=false&sensor=false

ggmap(map.2) +  
  geom_path(
    aes(x = lon, y = lat), colour = "red", size = 1.5,
    data = route_df, lineend = "round"
  )

Images